5 PRINT"[147]"
10 FORL=54272TO54295:POKEL,0:NEXT:POKE54296,15
20 POKE54277,8:POKE54278,255:POKE54276,21
30 FORZ=1TO4:REM NO. OF CYCLES
40 F1=10:FORY=1TO5:REM Y IS NO. OF INCREMENTS
50 F2=40:POKE54273,F1
60 FORX=1TO5:POKE54287,F2:REM X CONTROLS SPEED
70 F2=F2*1.01
80 NEXTX:F1=F1*1.5:NEXTY:NEXTZ
90 REM F1, F2 AND MULTIPLIERS GREATLY AFFECT HARMONIC CONTENT OF FINAL SOUNDS
100 POKE54278,15
110 LIST10-100